- Dim x AS string = Nothing
= x.Substring(0,4)
